

DEFINE VARIABLE tbl-list AS CHARACTER .

DEFINE VARIABLE i AS INTEGER.


tbl-list = "ad_mstr,cm_mstr,in_mstr,pc_mstr,pi_mstr,po_mstr,pod_det,ps_mstr,pt_mstr,ptp_det,pts_det,sct_det,so_mstr,sod_det,vd_mstr,wo_mstr,wod_det".

DO i = 1 TO NUM-ENTRIES(tbl-list):
/*
    FOR EACH _file EXCLUSIVE-LOCK WHERE _file-name = ENTRY(i, tbl-list) :

        _frozen = NO.

    END.
*/    

/*
    FOR EACH _file NO-LOCK WHERE _file-name = ENTRY(i, tbl-list),
        EACH _file-trig OF _file:

        DISP _File-Recid _Event _Proc-name _Override _Trig-CRC .

    END.


*/
    FOR EACH _file NO-LOCK WHERE _file-name = ENTRY(i, tbl-list) :

        CREATE _file-trig.
        ASSIGN
            _File-Recid = RECID(_file)
            _Event = "Create"
            _Proc-name = ENTRY(1, _file-name, "_") + "c.t"
            _Override = NO
            _Trig-CRC = ?
            .
    END.


END.

/*
FOR EACH _file-trig :
/*    DISP _file-trig. */
    DISP _Event _proc-name _override _trig-crc.
END.
*/
